home *** CD-ROM | disk | FTP | other *** search
- object FrmMain: TFrmMain
- Left = 434
- Top = 200
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Select Computer Example'
- ClientHeight = 272
- ClientWidth = 429
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PTFrame1: TPTFrame
- Left = 0
- Top = 0
- Width = 429
- Height = 2
- FrameStyle = ptfsHorzLine
- Align = alTop
- end
- object Label1: TLabel
- Left = 256
- Top = 8
- Width = 45
- Height = 13
- Caption = 'Computer'
- end
- object Label2: TLabel
- Left = 256
- Top = 56
- Width = 169
- Height = 81
- AutoSize = False
- Caption =
- 'This example shows a tree-view based at the Network Neighborhood' +
- '. When a tree node is selected, if it is a computer the name is ' +
- 'displayed in the box above.'
- WordWrap = True
- end
- object PTShellTree1: TPTShellTree
- Left = 8
- Top = 8
- Width = 241
- Height = 257
- BaseFolder.Pidl = {0112}
- Options = [ptstoAutoFill, ptstoVirtualFolders, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoOleDrag, ptstoOleDrop]
- ShowRoot = False
- DragMode = dmAutomatic
- Indent = 19
- OnChange = PTShellTree1Change
- ParentColor = False
- TabOrder = 0
- end
- object CompLabel: TPTGroup
- Left = 256
- Top = 24
- Width = 169
- Height = 20
- FrameStyle = ptfsLowered
- Color = clRed
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object MainMenu1: TMainMenu
- Left = 400
- Top = 8
- object File1: TMenuItem
- Caption = '&File'
- object Exit1: TMenuItem
- Caption = 'E&xit'
- ShortCut = 32856
- OnClick = Exit1Click
- end
- end
- end
- end
-